home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b6.d64
/
date.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
350b
|
16 lines
9000 PROC DATE(DOY,YEAR,REF MONTH,REF DAY) CLOSED
9010 IF DOY<=31 THEN
9020 MONTH:=1
9030 DAY:=DOY
9040 ELIF DOY<=59+LEAP'YEAR(YEAR) THEN
9050 MONTH:=2
9060 DAY:=DOY-31
9070 ELSE
9080 IF NOT LEAP'YEAR(YEAR) THEN
9090 DOY:+1
9100 ENDIF
9110 MONTH:=INT((DOY+31.39)/30.61)
9120 DAY:=DOY+2-(MONTH-1)*30-INT((MONTH+1)*.61)
9130 ENDIF
9140 ENDPROC DATE